graph01
AFID$CS<-as.character(substr(AFID$DDBID,1,5))
m1 <- ggplot(AFID, aes(x = Date2,y=AFID))+ geom_point(aes(colour = DDBID)) + facet_grid(CS~.)+ ggtitle("AFID TREND OVER TIME2")
# Temp Out
# multiplot(m1, cols=1)
ggplotly(m1)
AFID$CS<-as.character(substr(AFID$DDBID,1,5))
m1 <- ggplot(AFID, aes(x = Date2,y=AFID))+ geom_point(aes(colour = DDBID)) + facet_grid(CS~.)+ ggtitle("AFID TREND OVER TIME2")
# Temp Out
# multiplot(m1, cols=1)
ggplotly(m1)